#!/usr/bin/perl 

use strict;

use DBI;
use CGI;
use TTraker;

my $dbh;
initialize_dbi();

my $form_ref = parse_input();
print_header();

my %FORM_DATA = %$form_ref;
 
my $num = $FORM_DATA{'empNum'};
my $name = $FORM_DATA{'empName'};
my $job = $FORM_DATA{'empJob'};
my $loc = $FORM_DATA{'empLoc'};
my $date = $FORM_DATA{'payDate'};

my $msg = "Dates from $date are now active";

open_payroll_dates ($date);

pay_activity_screen_from_pm ($num, $name,$job, $loc, $msg);

db_disconnect();


